home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / dir_bas.exe / DIR.INC < prev    next >
Encoding:
Text File  |  1992-08-26  |  1.8 KB  |  51 lines
  1. '       *** DIR.INC ***
  2. '
  3. '       Fairchild Computer Services
  4. '       Route 5, Box 523-12
  5. '       Wills Point, TX   75169
  6. '       (903) 873-2114
  7. '
  8. '**************************** GENERAL NOTATIONS ***************************
  9. '
  10. '
  11. '
  12. '     This file INCludes the necessary definitions for using DIR.BAS.
  13. '
  14. '                               Enjoy!!                                -jmf
  15. '
  16. '
  17. '
  18. '**************************************************************************
  19.  
  20.   TYPE DirType
  21.     EntryName       AS STRING * 12
  22.     EntrySize       AS LONG
  23.     EntryDate       AS LONG
  24.     EntryTime       AS LONG
  25.     ReadOnlyFlag    AS INTEGER
  26.     HiddenFlag      AS INTEGER
  27.     SystemFlag      AS INTEGER
  28.     ArchiveFlag     AS INTEGER
  29.     DirectoryFlag   AS INTEGER
  30.     ErrorFlag       AS INTEGER
  31.     ErrorDesc       AS STRING * 12
  32.   END TYPE
  33.  
  34.   CONST True% = 1, False% = 0           'Initialize boolean values
  35.   CONST null$ = ""                      'Null string
  36.   CONST alphabet$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  37.  
  38.   DECLARE FUNCTION ConvertDate$ (DateIn&) 'Function returns formatted date
  39.   DECLARE FUNCTION ConvertSize$ (SizeIn&) 'Function returns formatted size
  40.   DECLARE FUNCTION ConvertTime$ (TimeIn&) 'Function returns formatted time
  41.   DECLARE FUNCTION CurrentDevice$ ()    'Function returns current device:
  42.   DECLARE FUNCTION CurrentDir$ ()       'Function returns current drive:dir
  43.   DECLARE FUNCTION Dir$ (file$)         'Function to return directory entry
  44.   DECLARE FUNCTION DirCount% (file$)    'Function to count matching searches
  45.   DECLARE FUNCTION DirError$ (Code%)    'Returns dir error as string
  46.   DECLARE FUNCTION DTABit% (BitNumber%) 'Get bit val in Data Transmission Area
  47.   DECLARE FUNCTION MaskIt$ (text$, length%, editstring$) 'Mask an input string
  48.  
  49.   COMMON SHARED DirRecord AS DirType
  50.  
  51.